Public Class About
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Try
            System.Diagnostics.Process.Start(e.Link.LinkData.ToString)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LinkLabel1.Links.Add(0, LinkLabel1.Text.Length, "http://www.blakepell.com")
        LinkLabel2.Links.Add(0, LinkLabel2.Text.Length, "http://glennberrysqlperformance.spaces.live.com/blog/cns!45041418ECCAA960!366.entry")
        LinkLabel3.Links.Add(0, LinkLabel3.Text.Length, "http://blakepell.spaces.live.com")
        lblVersion.Text = lblVersion.Text.Replace("%s", My.Application.Info.Version.ToString)
        lblProductName.Text = lblProductName.Text.Replace("%s", My.Application.Info.ProductName)
        Me.Text = Me.Text.Replace("%s", My.Application.Info.ProductName)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Try
            System.Diagnostics.Process.Start(e.Link.LinkData.ToString)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Try
            System.Diagnostics.Process.Start(e.Link.LinkData.ToString)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class
